home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / Chip Temmuz 2004.iso / program / antispam / RazorAgent_SDK / razor-agents-sdk-2.03.exe / URI-1.19 / t / rsync.t < prev   
Encoding:
Text File  |  2000-02-14  |  385 b   |  22 lines
  1. print "1..4\n";
  2.  
  3. use strict;
  4. use URI;
  5.  
  6. my $u = URI->new('rsync://gisle@perl.com/foo/bar');
  7.  
  8. print "not " unless $u->user eq "gisle";
  9. print "ok 1\n";
  10.  
  11. print "not " unless $u->port eq 873;
  12. print "ok 2\n";
  13.  
  14. print "not " unless $u->path eq "/foo/bar";
  15. print "ok 3\n";
  16.  
  17. $u->port(8730);
  18.  
  19. print "not " unless $u eq 'rsync://gisle@perl.com:8730/foo/bar';
  20. print "ok 4\n";
  21.  
  22.